BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/Rinaldi/Utility Stacks/Test_Externals.cpt/Test_Externals/stack_-1.xml

Extensible Markup Language | 1991-10-17 | 4KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in</name>
    <id>-1</id>
    <cardCount>2</cardCount>
    <cardID>3019</cardID>
    <listID>3380</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>on openStackSaveCurrentGlobalsglobal ExterListset cursor to watchput AllWindoids() into cd fld "Windows" of cd 1put switch(cd fld "NoShow" of cd 1) into NoShowput ListLogic("XCMD," & ItemSort(GetRes(0,"XCMD",",")),"NOT",NoShow)¬into line 1 of ExterListput ListLogic("XFCN," & ItemSort(GetRes(0,"XFCN",",")),"NOT",NoShow)¬into line 2 of ExterListput ";" into char offset(return,ExterList) of ExterListif cd fld "Call" of cd 1 is not empty and¬word 1 of cd fld "Call" of cd 1 is in ExterListthenif first char of word 2 of cd fld "Call" of cd 1 is "("then UpdateInfos "XFCN",word 1 of cd fld "Call" of cd 1else UpdateInfos "XCMD",word 1 of cd fld "Call" of cd 1elseput empty into cd fld "Call"put empty into cd fld "Source"put empty into cd fld "Size"put empty into cd fld "Version"end ifset visible of btn "G" of cd 1 to (FrontWindoid() ≠ empty)set visible of btn "S" of cd 1 to (FrontWindoid() ≠ empty)FullBalloons "IsOn"set hilite of btn "BHelp" of cd 1 to (the Result is true)end openStackfunction ItemSort Whatsort items of Whatreturn Whatend ItemSorton closeStackhide cd fld "About" of cd 1CloseWindoidsClearStackGlobalsend closeStackon Chronoglobal Timerget the ticksif Timer is emptythen put it into Timerelsesubtract Timer from itput empty into Timerput it div 3600 into Mget it mod 3600put it div 60 into Sget it mod 60put trunc(it * 1.6667) into Dreturn M & "'" & S & "''" & D & "'''"end ifend Chronoon UpdateInfos XType,XNameif the selectedChunk contains "card field 5"then put "the selectedChunk" into Whereelse put "cd fld id 6" into Whereif XType is "XFCN"thenput XName && "()" into XCalldo "get word 2 of" && XName & "(" & quote & "!" & quote & ")"elseput XName & space into XCallif Where is "cd fld id 6"then put space after XCalldo XName && quote & "!" & quotedo "get word 2 of the Result"end ifif the target is "card button" && quote & "E" & quotethen do "put XCall into" && Wheredelete last char of itput it into cd fld "Version" of cd 1put GetResSize(XType,XName) into cd fld "Size" of cd 1put first word of XName & cd fld "Suffix" of cd 1 into cd fld "source" of cd 1end UpdateInfoson mouseUpput number of the target into FldNbif the target contains "card field"thenif FldNb is in "3,5,7"thenget rect of the targetadd 4 to item 2 of itsubtract 11 from item 3 of itput item 3 of it - 11 into item 1 of itsubtract 4 from item 4 of itif the mouseLoc is within itthenput "fi" into last char of the targetlock Screenif rect of the target is word 2 of script of the targetthenput "close" into TheEffectput 2 into LineNbshow cd btn 24show cd btn 25if FldNb is 7thenrepeat with i=12 to 13show btn ishow cd fld iend repeatend ifif FldNb is 3thenput "⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄ Input ⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄fl"¬into the targetshow cd fld 5show cd fld 6end ifelseput "open" into TheEffectput 1 into LineNbhide cd btn 24hide cd btn 25if FldNb is 7thenrepeat with i=12 to 13hide btn ihide cd fld iend repeatend ifif FldNb is 3thenput "⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄ Input ⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄⁄fl"¬into the targethide cd fld 5hide cd fld 6end ifend ifset rect of the target to¬word 2 of line LineNb of script of the targetset rect of cd f